home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 102 / CD-ROM 102.iso / aplic / 2sync / 2SyncSetup.exe / launcher / scripts / DefineSprite_1 / frame_10 / DoAction.as
Encoding:
Text File  |  2002-03-20  |  287 b   |  12 lines
  1. i = 1;
  2. set("new","");
  3. o = length(eval(dstring)) / 3;
  4. while(Number(length(eval(dstring))) >= Number(i))
  5. {
  6.    cts = eval(dstring).substr(i,3);
  7.    cts = chr((Number(int(cts)) + Number(o)) / 2);
  8.    set("new",eval("new") add cts);
  9.    i = Number(i) + 3;
  10. }
  11. set(dstring,eval("new"));
  12.